home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / jui_ah.inc < prev    next >
Text File  |  1997-01-08  |  5KB  |  322 lines
  1. *---------------------------------------
  2. *
  3. *    âeâôò\Ī
  4. *
  5. *    ï¡ìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. high_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subi.w    #16,d1
  17.     subi.w    #32,d2
  18.     addi.w    #$0021,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     addi.w    #16,d1
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     subi.w    #16,d1
  39.     addi.w    #16,d2
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     addi.w    #16,d1
  47.     addq.w    #1,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.  
  53.     rts
  54. @@:
  55.     subi.w    #32,d2
  56.     addi.w    #$4021,d7
  57.     move.w    d1,(a6)+
  58.     move.w    d2,(a6)+
  59.     move.w    d7,(a6)+
  60.     move.w    #$0003,(a6)+
  61.  
  62.     subi.w    #16,d1
  63.     addi.w    #16,d2
  64.     addq.w    #2,d7
  65.     move.w    d1,(a6)+
  66.     move.w    d2,(a6)+
  67.     move.w    d7,(a6)+
  68.     move.w    #$0003,(a6)+
  69.  
  70.     addi.w    #16,d1
  71.     subq.w    #1,d7
  72.     move.w    d1,(a6)+
  73.     move.w    d2,(a6)+
  74.     move.w    d7,(a6)+
  75.     move.w    #$0003,(a6)+
  76.  
  77.     subi.w    #16,d1
  78.     addi.w    #16,d2
  79.     addq.w    #3,d7
  80.     move.w    d1,(a6)+
  81.     move.w    d2,(a6)+
  82.     move.w    d7,(a6)+
  83.     move.w    #$0003,(a6)+
  84.  
  85.     addi.w    #16,d1
  86.     subq.w    #1,d7
  87.     move.w    d1,(a6)+
  88.     move.w    d2,(a6)+
  89.     move.w    d7,(a6)+
  90.     move.w    #$0003,(a6)+
  91.  
  92.     rts
  93. *---------------------------------------
  94. high_a:
  95.     move.w    C_X(a1),d1
  96.     move.w    C_Y(a1),d2
  97.     tst.w    C_LR_F(a1)
  98.     bne    @f
  99.  
  100.     subq.w    #8,d1
  101.     subi.w    #24,d2
  102.     addi.w    #$0026,d7
  103.     move.w    d1,(a6)+
  104.     move.w    d2,(a6)+
  105.     move.w    d7,(a6)+
  106.     move.w    #$0003,(a6)+
  107.  
  108.     addi.w    #16,d2
  109.     addq.w    #1,d7
  110.     move.w    d1,(a6)+
  111.     move.w    d2,(a6)+
  112.     move.w    d7,(a6)+
  113.     move.w    #$0003,(a6)+
  114.  
  115.     addi.w    #16,d2
  116.     addq.w    #1,d7
  117.     move.w    d1,(a6)+
  118.     move.w    d2,(a6)+
  119.     move.w    d7,(a6)+
  120.     move.w    #$0003,(a6)+
  121.  
  122.     addi.w    #16,d1
  123.     subi.w    #32,d2
  124.     addq.w    #1,d7
  125.     move.w    d1,(a6)+
  126.     move.w    d2,(a6)+
  127.     move.w    d7,(a6)+
  128.     move.w    #$0003,(a6)+
  129.  
  130.     addi.w    #16,d1
  131.     addq.w    #1,d7
  132.     move.w    d1,(a6)+
  133.     move.w    d2,(a6)+
  134.     move.w    d7,(a6)+
  135.     move.w    #$0003,(a6)+
  136.  
  137.     subi.w    #16,d1
  138.     addi.w    #16,d2
  139.     addq.w    #1,d7
  140.     move.w    d1,(a6)+
  141.     move.w    d2,(a6)+
  142.     move.w    d7,(a6)+
  143.     move.w    #$0003,(a6)+
  144.  
  145.     addi.w    #16,d1
  146.     addq.w    #1,d7
  147.     move.w    d1,(a6)+
  148.     move.w    d2,(a6)+
  149.     move.w    d7,(a6)+
  150.     move.w    #$0003,(a6)+
  151.  
  152.     rts
  153. @@:
  154.     subq.w    #8,d1
  155.     subi.w    #24,d2
  156.     addi.w    #$4026,d7
  157.     move.w    d1,(a6)+
  158.     move.w    d2,(a6)+
  159.     move.w    d7,(a6)+
  160.     move.w    #$0003,(a6)+
  161.  
  162.     addi.w    #16,d2
  163.     addq.w    #1,d7
  164.     move.w    d1,(a6)+
  165.     move.w    d2,(a6)+
  166.     move.w    d7,(a6)+
  167.     move.w    #$0003,(a6)+
  168.  
  169.     addi.w    #16,d2
  170.     addq.w    #1,d7
  171.     move.w    d1,(a6)+
  172.     move.w    d2,(a6)+
  173.     move.w    d7,(a6)+
  174.     move.w    #$0003,(a6)+
  175.  
  176.     subi.w    #32,d1
  177.     subi.w    #32,d2
  178.     addq.w    #2,d7
  179.     move.w    d1,(a6)+
  180.     move.w    d2,(a6)+
  181.     move.w    d7,(a6)+
  182.     move.w    #$0003,(a6)+
  183.  
  184.     addi.w    #16,d1
  185.     subq.w    #1,d7
  186.     move.w    d1,(a6)+
  187.     move.w    d2,(a6)+
  188.     move.w    d7,(a6)+
  189.     move.w    #$0003,(a6)+
  190.  
  191.     subi.w    #16,d1
  192.     addi.w    #16,d2
  193.     addq.w    #3,d7
  194.     move.w    d1,(a6)+
  195.     move.w    d2,(a6)+
  196.     move.w    d7,(a6)+
  197.     move.w    #$0003,(a6)+
  198.  
  199.     addi.w    #16,d1
  200.     subq.w    #1,d7
  201.     move.w    d1,(a6)+
  202.     move.w    d2,(a6)+
  203.     move.w    d7,(a6)+
  204.     move.w    #$0003,(a6)+
  205.  
  206.     rts
  207. *---------------------------------------
  208. high_t:
  209.     move.w    C_X(a1),d1
  210.     move.w    C_Y(a1),d2
  211.     tst.w    C_LR_F(a1)
  212.     bne    @f
  213.  
  214.     subq.w    #8,d1
  215.     subi.w    #24,d2
  216.     addi.w    #$0026,d7
  217.     move.w    d1,(a6)+
  218.     move.w    d2,(a6)+
  219.     move.w    d7,(a6)+
  220.     move.w    #$0003,(a6)+
  221.  
  222.     addi.w    #16,d2
  223.     addq.w    #1,d7
  224.     move.w    d1,(a6)+
  225.     move.w    d2,(a6)+
  226.     move.w    d7,(a6)+
  227.     move.w    #$0003,(a6)+
  228.  
  229.     addi.w    #16,d2
  230.     addq.w    #1,d7
  231.     move.w    d1,(a6)+
  232.     move.w    d2,(a6)+
  233.     move.w    d7,(a6)+
  234.     move.w    #$0003,(a6)+
  235.  
  236.     addi.w    #16,d1
  237.     subi.w    #32,d2
  238.     addq.w    #5,d7
  239.     move.w    d1,(a6)+
  240.     move.w    d2,(a6)+
  241.     move.w    d7,(a6)+
  242.     move.w    #$0003,(a6)+
  243.  
  244.     addi.w    #16,d1
  245.     addq.w    #1,d7
  246.     move.w    d1,(a6)+
  247.     move.w    d2,(a6)+
  248.     move.w    d7,(a6)+
  249.     move.w    #$0003,(a6)+
  250.  
  251.     subi.w    #16,d1
  252.     addi.w    #16,d2
  253.     addq.w    #1,d7
  254.     move.w    d1,(a6)+
  255.     move.w    d2,(a6)+
  256.     move.w    d7,(a6)+
  257.     move.w    #$0003,(a6)+
  258.  
  259.     addi.w    #16,d1
  260.     addq.w    #1,d7
  261.     move.w    d1,(a6)+
  262.     move.w    d2,(a6)+
  263.     move.w    d7,(a6)+
  264.     move.w    #$0003,(a6)+
  265.  
  266.     rts
  267. @@:
  268.     subq.w    #8,d1
  269.     subi.w    #24,d2
  270.     addi.w    #$4026,d7
  271.     move.w    d1,(a6)+
  272.     move.w    d2,(a6)+
  273.     move.w    d7,(a6)+
  274.     move.w    #$0003,(a6)+
  275.  
  276.     addi.w    #16,d2
  277.     addq.w    #1,d7
  278.     move.w    d1,(a6)+
  279.     move.w    d2,(a6)+
  280.     move.w    d7,(a6)+
  281.     move.w    #$0003,(a6)+
  282.  
  283.     addi.w    #16,d2
  284.     addq.w    #1,d7
  285.     move.w    d1,(a6)+
  286.     move.w    d2,(a6)+
  287.     move.w    d7,(a6)+
  288.     move.w    #$0003,(a6)+
  289.  
  290.     subi.w    #32,d1
  291.     subi.w    #32,d2
  292.     addq.w    #6,d7
  293.     move.w    d1,(a6)+
  294.     move.w    d2,(a6)+
  295.     move.w    d7,(a6)+
  296.     move.w    #$0003,(a6)+
  297.  
  298.     addi.w    #16,d1
  299.     subq.w    #1,d7
  300.     move.w    d1,(a6)+
  301.     move.w    d2,(a6)+
  302.     move.w    d7,(a6)+
  303.     move.w    #$0003,(a6)+
  304.  
  305.     subi.w    #16,d1
  306.     addi.w    #16,d2
  307.     addq.w    #3,d7
  308.     move.w    d1,(a6)+
  309.     move.w    d2,(a6)+
  310.     move.w    d7,(a6)+
  311.     move.w    #$0003,(a6)+
  312.  
  313.     addi.w    #16,d1
  314.     subq.w    #1,d7
  315.     move.w    d1,(a6)+
  316.     move.w    d2,(a6)+
  317.     move.w    d7,(a6)+
  318.     move.w    #$0003,(a6)+
  319.  
  320.     rts
  321. *---------------------------------------
  322.